Jupiten 

ACEE 



Reference Card 



ACE Forth 



Stack 
Notation 


Cells 


Description 


c 


1 


Character (high byte ignored) 


flag 


1 


Boolean (0 = False, 1 = True) 


n 


1 


Signed number 


u 


1 


Unsigned number 


X 


1 


Non-specific single cell 


adr 


1 


Memory address 


d 


2 


Signed double number 


ud 


2 


Unsigned double number 


xd 


2 


Non-specific double cell 


f 


2 


Floating point number 



Immediate words in Green 
Immediate and compile-only words in Blue 



Stack Manipulation 



DROP (x ->) 

DUP (j-»o) 

?DUP (x -> x (xj) 

OVER (xj x 2 — ► X] x 2 X]) 

PICK (x„...X] n — > x„...Xi x„) 

ROLL (x„...X] n — > x n -i...Xi x„) 

ROT (Xl X2 X 3 — > X 2 X3 xi) 

>R (x ->) (R: -> x) 

R> (-»• x) (R: x ->) 

SWAP (xi x 2 —> x 2 Xi) 



Discard TOS (top of stack) 
Duplicate TOS 
DUP, if non-zero 
Copy second on stack to top 
Copy « th cell to top 
Rotate n* cell to top 
Rotate 3 rd cell to top 
Move TOS to Return Stack 
Retrieve from Return Stack 
Exchange the two top cells 



Comparison 




F+ 


ififl^fi 


/J =/i +/j 








F- 


Vtfi -»/*: 


/* =/i -/a 


< 


(rii n 2 -^flag) 


True if «;< n 2 


F* 


(#/*-»/*: 


/3 =/i *f* 


= 


(ni n 2 -^flag) 


True if «; = n 2 


F/ 


Wfi^M 


fi-fl/fl 


> 


(n, n 2 -^flag) 


True if ni > n 2 


FNEGATE 


W -»/*) 


f^'fl 


o< 


(n -^flag) 


True if n < 








0= 
0> 


(n -^flag) 
(n -^flag) 


True if n = 
True if n > 


Memory 




u< 


(ui u 2 —>flag) 


True if Ui < u 2 


@ (adr — * x) 


Read x (2 bytes) from a<ir 


D< 


(di d 2 —>flag) 


True if d t < d 2 


! (x adr — >) 


Store x (2 bytes) to aafr 


MAX 


(ni n 2 — ► ni) 


Leave greater of two numbers 


C@ (adr — » c) 


Read c ( 1 byte) from adr 


MIN 


(n,n 2 ^> ni) 


Leave lesser of two numbers 


C ! (c adr — ►) 


Store c ( 1 byte) to adr 


Logical 




Control Structures 


AND 


(Xi X 2 — ► Xi) 


Bitwise boolean AND 


IF 


Cfa?-0 


Conditional structure IF..(ELSE)..THEN 


OR 


(Xi X 2 — ► Xi) 


Bitwise boolean OR 


ELSE 


(-0 


False condition of an IF structure 


XOR 


(Xy X 2 — ► X 3 ) 


Bitwise boolean XOR 


THEN 


(-0 


End of an IF conditional structure 








DO 


(«i «2 — ») 


Counted loop structure DO. ..LOOP 


Integer Arithmetic 








(«2 = count start, ni = count end) 


w 






LOOP 


(-») 


Increment loop count, terminate if end 


+ 


(tli n 2 —> n 3 ) 


n 3 = ni + n 2 


+LOOP 


(»~0 


Add n to loop count, terminate if end 


- 


(ni n 2 — » ni) 


n$ — ni- n 2 


I 


(-») 


Get current loop count 


* 


(ni n 2 — > ni) 


m — ni * n 2 


I' 


H») 


Get current loop count limit 


/ 


(n,n 2 ^> n 3 ) 


n 4 = ni / n 2 


J 


(-»«) 


Get outer loop count 


MOD 


(n,n 2 ^> n 3 ) 


Remainder of nj n 2 (sign of ni) 


LEAVE 


(-») 


Force a DO. ..LOOP count to end 


/MOD 


(tii n 2 — * n 3 114) 


n 3 = remainder of ni 1 n 2 


BEGIN 


(-») 


Begin a WHILE or UNTIL loop 






n 4 = nil n 2 


UNTIL 


(fag-) 


Loop untiiy/ag = true (BEGIN.. UNTIL) 


*/ 


(ni n 2 n 3 — » n 4 ) 


n 4 = ni* n 2 / n 3 


WHILE 


(fa?-) 


Exit loop when flag = false 


*/MOD 


(tii n 2 n 3 — * ti4 Tts) 


m = remainder of «/ * n 2 / n 3 






(BEGIN. .WHILE. .REPEAT) 






TI5— ni* n 2 / n 3 


REPEAT 


(-) 


Jump back to BEGIN in a WHILE loop 


1 + 


(tii — * ni) 


n 2 = ni + 1 


EXIT 


("») 


Exit current word execution 


1- 


(tii — * ni) 


n 2 = ni - 1 


EXECUTE 


(adr — ►) 


Execute word with compilation adr 


2+ 


(jli — > ni) 


n 2 = Bi + 2 


CALL 


(aaV — ►) 


Call Z80 code (terminated with jp(iy)) 


2- 


(n, — > « 2 ) 


«2 — «/ - 2 


ABORT 


(... -) 


Quit program, clearing data stack 


ABS 


(« — > «) 


w = |«| (absolute value) 


QUIT 


(->) 


Quit program, not clearing data stack 


NEGATE 


(K; — > « 2 ) 


n 2 = -ni (two's complement) 








U* 
U/MOD 


(m ; M2 — * ud) 

(ud Ui — > M2 Mj) 


ud = Ui * u 2 

u 2 — remainder of ud / Ui 


Character Input/Output 






u 3 — ud / Ui 


CR 


(->) 


Print carriage return and line feed 


D+ 


(d/ 0*2 — » A) 


d 3 — di + d 2 


ASCII text (— >c) 


ASCII code of first character in text 


DNEGATE 


(J/ — > 0*2) 


d 2 — -di (two's complement) 


EMIT 


(C-) 


Print ASCII c character 








SPACE 


(-») 


Print one space 


Floating Point Arithmetic 


SPACES 


(«^) 


Print n spaces, if n > 








II 


(->) 


Print a string terminated by " 


INT 


(/"— ► «) Convert floating number to integer 


TYPE 


(ac?r « - 


->) Print n characters from adr 


UFLOAT 


(w — *f) Convert unsigned integer to float 


QUERY 


(-») 


Accept entry at the input buffer 



WORD (c — ► adr) Take text from input buffer using c 

as delimiter, leave adr of length byte 

RETYPE ( — ► ) Allow input buffer editing, turning 

cursor to Q 

INKEY (— > x) Read keyboard (0 = no key pressed) 



Number Input/Output 



BASE 

DECIMAL 

U. 

F. 

CONVERT 

<# 
# 

#S 

HOLD 

SIGN 
#> 

NUMBER 



(— > adr) 

(»->) 
(«-») 

(d; aJr/ — » J2 a(ir_i) 

(ad/ — ► udj) 
(ud ->• 0) 
(c-) 

(wd — » adr k) 



(— > x (adr)) 
(-> n 4702) 
(-+/4181) 



1 -byte variable containing 

system number base 

Set base to decimal 

Print n with one trailing space 

Print unsigned with one 

trailing space 

Print float with one trailing 

space 

Convert string at adri to 

double number and add into 

di leaving result d 2 

Initiate formatted output 

Convert one digit from udi 

and HOLD it in the PAD 

Convert and HOLD all 

remaining significant digits 

Insert character into formatted 

string 

HOLD minus sign if n < 

Finish formatted output 

leaving address & length of 

the resulting string 

Get number from input buffer 

Converted to integer 

Converted to float 

Conversion failed 



Word Definition 



: word 

r 

VARIABLE name 
variable-name 
CONSTANT name 
constant-name 
IMMEDIATE 
CREATE name 
DEFINER word 
DOES> 



(— ►) Start a word definition 

(— ►) Terminate a word definition 

(x — ►) Define a variable with value x 

(— ► adr) Get variable adr 

(x — ►) Define a constant with value x 

(— * x) Get constant value 

(— ►) Mark newest word as immediate 

(— ►) Create a dictionary entry 

(— ►) Start a defining word definition 

(— > adr) Define the action routine of a 
defining word 



COMPILER word 
RUNS> 

FIND word 

FORGET word 
LIST word 
EDIT word 
REDEFINE word 



(n — ►) Start a compiling word definition 
(— » adr) Defines the action routine of a 

compiling word 
(— > adr) Find word compilation address 

(0 if not found) 
(— ►) Clear all definitions back to word 

(— ►) List word definition 

(— ►) Edit word definition 

(— ►) Replace previous word with the 

newest dictionary entry 



Vocabulary 



VOCABULARY name (— ►) Define a new vocabulary 



vocabulary 
CONTEXT 

CURRENT 

FORTH 

DEFINITIONS 

VLIST 

Compiler 



(->) Set CONTEXT = vocabulary 
(— > adr) Get current word search 

vocabulary address (1541 1) 
(— » a«V) Get current word definition 

vocabulary address (15409) 

Set CONTEXT to the FORTH 

vocabulary 

Set CURRENT vocabulary to 

CONTEXT 

List dictionary to screen 



(-) 
(-0 



(-) 



r 


(*-») 


Compile x into the dictionary 


c, 


(c-») 


Compile c into the dictionary 


ALLOT 


(»-*) 


Enclose n bytes in the dictionary 


LITERAL 


(*-) 


Compile x as literal 


[ 


(-») 


Enter interpret mode 


] 


(->) 


Enter compile mode 



Miscellaneous 



( 

CLS 
AT 

HERE 

PAD 

SLOW 

FAST 

BEEP 



►) Start a comment, terminated by ) 

>) Clear screen 

«j «2 — >) Set print position to row «; and 
column w 2 

> adr) Next available dictionary location 

> adr) Scratch pad area address (9985) 

>) Normal execution. Enable error checks 

») Faster execution. Disable error checks 

Ui u 2 — ») Play tone 

Mj = 1000000 / (8 * frequency [Hz]) 

ii2 = duration [ms] 



IN (adr — * c) 
OUT (c adr -►) 
INVIS (-^) 
VIS (-») 
LINE (-») 
PLOT («i «2 «j — > 



Tape F/7es 



Read byte from Z80 input port adr 
Write byte to Z80 output port adr 
Disable copy-up mechanism and OK 
Enable copy-up mechanism and OK 
Interpret the input buffer as FORTH 
Plot at n, (X), n 2 (Y) with mode n 3 
(0 = unplot, l=plot, 2=move, 3=change) 



LOAD name 
SAVE name 
VERIFY name 
BLOAD name 
BSAVE name 
BVERIFY name 



(— >) Load vocabulary from tape 

(—*) Save vocabulary to tape 

(— ►) Verify vocabulary 

(adr u —*) Load u bytes from tape to adr 
(adr u — >) Save u bytes from adr to tape 
(adr u — >) Verify u bytes from adr 
if adr = then use file value (BLOAD or BVERIFY) 
if u = then use file value (BLOAD or BVERIFY) 

Error Codes 



Error 


Description 


1 


Not enough memory 


2 


Data Stack Underflow 


3 


BREAK pressed 


4 


Compile only word 


5 


Structure imbalance 


6 


Name size < 1 or > 64 


7 


PICK or ROLL operand < 


8 


Floating point overflow 


9 


AT or PLOT to the input buffer 


10 


Tape error 


11 


REDEFINE or FORGET error 


12 


Incomplete definition in dictionary 


13 


Word not found or is ROM or is FORTH 


14 


Word not Listable 



2006 © by Ricardo F. Lopes 



